=head1 BASE INFORMATION

=head2 Filename

Demo.pm

=head2 Path

/lib/Controller/Default/

=head2 Notes

=head  ToDo's

=head2 Revision

=over 4

=item *

$HeadURL: http://bluehome.googlecode.com/svn/trunk/lib/catwork/Controller/Default/Demo.pm $

=item * 

$Id: Demo.pm 118 2011-01-18 07:29:41Z hg.winkler.77 $

=back

=head2 Header Source Code

=cut

package catwork::Controller::Default::Demo;
use Moose;
use namespace::autoclean;

my $tool_path   = "";
my $title       = "";

BEGIN {extends 'Catalyst::Controller'; }

=head1 NAME

catwork::Controller::Default::Demo - Catalyst Controller

=head1 DESCRIPTION

Catalyst Controller.

=head1 METHODS

=cut


=head2 index

=head3 source code

=cut

sub index :Path :Args(0) {
    my ( $self, $c ) = @_;

    $c->response->body('Matched catwork::Controller::Default::Demo in Default::Demo.');
}

=head2 demo

=head3 source code

=cut

sub demo :Chained('/') :PathPart('demo') :CaptureArgs(0) {

    my ($self, $c) = @_;

    $tool_path  = "catwOrk -> Demo";
    $title      = "Demo";

}

=head2 lamp

this function loads the lamp demo

=head3 stash

    $c->stash(
        TITLE       => $title,
        TOOLPATH    => $tool_path,
        template    => 'demo/lamp.tt2'
    );

=head3 source code

=cut

sub lamp :Chained('demo') :PathPart('lamp') :Args(0) {

    my ($self, $c) = @_;
    $c->stash(
        TITLE       => $title,
        TOOLPATH    => $tool_path,
        template    => 'demo/lamp.tt2'
    );

}

=head1 AUTHOR

Hans-Georg Winkler,,,

=head1 LICENSE

This library is free software. You can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

__PACKAGE__->meta->make_immutable;

